<?php
if(!defined('sugarEntry') || !sugarEntry) die('Not A Valid Entry Point');
/*********************************************************************************
 * SugarCRM is a customer relationship management program developed by
 * SugarCRM, Inc. Copyright (C) 2004-2011 SugarCRM Inc.
 * 
 * This program is free software; you can redistribute it and/or modify it under
 * the terms of the GNU Affero General Public License version 3 as published by the
 * Free Software Foundation with the addition of the following permission added
 * to Section 15 as permitted in Section 7(a): FOR ANY PART OF THE COVERED WORK
 * IN WHICH THE COPYRIGHT IS OWNED BY SUGARCRM, SUGARCRM DISCLAIMS THE WARRANTY
 * OF NON INFRINGEMENT OF THIRD PARTY RIGHTS.
 * 
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public License for more
 * details.
 * 
 * You should have received a copy of the GNU Affero General Public License along with
 * this program; if not, see http://www.gnu.org/licenses or write to the Free
 * Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 * 02110-1301 USA.
 * 
 * You can contact SugarCRM, Inc. headquarters at 10050 North Wolfe Road,
 * SW2-130, Cupertino, CA 95014, USA. or at email address contact@sugarcrm.com.
 * 
 * The interactive user interfaces in modified source and object code versions
 * of this program must display Appropriate Legal Notices, as required under
 * Section 5 of the GNU Affero General Public License version 3.
 * 
 * In accordance with Section 7(b) of the GNU Affero General Public License version 3,
 * these Appropriate Legal Notices must retain the display of the "Powered by
 * SugarCRM" logo. If the display of the logo is not reasonably feasible for
 * technical reasons, the Appropriate Legal Notices must display the words
 * "Powered by SugarCRM".
 ********************************************************************************/


global $disable_date_format;
$disable_date_format = true;

class SoapHelperWebServices {

	function get_field_list($value,$fields,  $translate=true) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->get_field_list');
		$module_fields = array();
		$link_fields = array();
		if(!empty($value->field_defs)){

			foreach($value->field_defs as $var){
				if(!empty($fields) && !in_array( $var['name'], $fields))continue;
				if(isset($var['source']) && ($var['source'] != 'db' && $var['source'] != 'non-db' &&$var['source'] != 'custom_fields') && $var['name'] != 'email1' && $var['name'] != 'email2' && (!isset($var['type'])|| $var['type'] != 'relate'))continue;
				if ($var['source'] == 'non_db' && (isset($var['type']) && $var['type'] != 'link')) {
					continue;
				}
				$required = 0;
				$options_dom = array();
				$options_ret = array();
				// Apparently the only purpose of this check is to make sure we only return fields
				//   when we've read a record.  Otherwise this function is identical to get_module_field_list
				if( isset($var['required']) && $var['required'] && $var['required'] !== 'false' ){
					$required = 1;
				}
				if(isset($var['options'])){
					$options_dom = translate($var['options'], $value->module_dir);
					if(!is_array($options_dom)) $options_dom = array();
					foreach($options_dom as $key=>$oneOption)
						$options_ret[$key] = $this->get_name_value($key,$oneOption);
				}

	            if(!empty($var['dbType']) && $var['type'] == 'bool') {
	                $options_ret['type'] = $this->get_name_value('type', $var['dbType']);
	            }

	            $entry = array();
	            $entry['name'] = $var['name'];
	            $entry['type'] = $var['type'];
	            if ($var['type'] == 'link') {
		            $entry['relationship'] = (isset($var['relationship']) ? $var['relationship'] : '');
		            $entry['module'] = (isset($var['module']) ? $var['module'] : '');
		            $entry['bean_name'] = (isset($var['bean_name']) ? $var['bean_name'] : '');
					$link_fields[$var['name']] = $entry;
	            } else {
		            if($translate) {
		            	$entry['label'] = isset($var['vname']) ? translate($var['vname'], $value->module_dir) : $var['name'];
		            } else {
		            	$entry['label'] = isset($var['vname']) ? $var['vname'] : $var['name'];
		            }
		            $entry['required'] = $required;
		            $entry['options'] = $options_ret;
					if(isset($var['default'])) {
					   $entry['default_value'] = $var['default'];
					}
					$module_fields[$var['name']] = $entry;
	            } // else
			} //foreach
		} //if

		if($value->module_dir == 'Bugs'){
			require_once('modules/Releases/Release.php');
			$seedRelease = new Release();
			$options = $seedRelease->get_releases(TRUE, "Active");
			$options_ret = array();
			foreach($options as $name=>$value){
				$options_ret[] =  array('name'=> $name , 'value'=>$value);
			}
			if(isset($module_fields['fixed_in_release'])){
				$module_fields['fixed_in_release']['type'] = 'enum';
				$module_fields['fixed_in_release']['options'] = $options_ret;
			}
			if(isset($module_fields['release'])){
				$module_fields['release']['type'] = 'enum';
				$module_fields['release']['options'] = $options_ret;
			}
			if(isset($module_fields['release_name'])){
				$module_fields['release_name']['type'] = 'enum';
				$module_fields['release_name']['options'] = $options_ret;
			}
		}

		if(isset($value->assigned_user_name) && isset($module_fields['assigned_user_id'])) {
			$module_fields['assigned_user_name'] = $module_fields['assigned_user_id'];
			$module_fields['assigned_user_name']['name'] = 'assigned_user_name';
		}
		if(isset($module_fields['modified_user_id'])) {
			$module_fields['modified_by_name'] = $module_fields['modified_user_id'];
			$module_fields['modified_by_name']['name'] = 'modified_by_name';
		}
		if(isset($module_fields['created_by'])) {
			$module_fields['created_by_name'] = $module_fields['created_by'];
			$module_fields['created_by_name']['name'] = 'created_by_name';
		}

		$GLOBALS['log']->info('End: SoapHelperWebServices->get_field_list');
		return array('module_fields' => $module_fields, 'link_fields' => $link_fields);
	} // fn

	function setFaultObject($errorObject) {
		if ($this->isLogLevelDebug()) {
			$GLOBALS['log']->debug('SoapHelperWebServices->setFaultObject - ' . var_export($errorObject, true));
		}
		global $service_object;
		$service_object->error($errorObject);
	} // fn

/**
 * Validate the user session based on user name and password hash.
 *
 * @param string $user_name -- The user name to create a session for
 * @param string $password -- The MD5 sum of the user's password
 * @return true -- If the session is created
 * @return false -- If the session is not created
 */
function validate_user($user_name, $password){
	$GLOBALS['log']->info('Begin: SoapHelperWebServices->validate_user');
	global $server, $current_user, $sugar_config, $system_config;
	$user = new User();
	$user->user_name = $user_name;
	$system_config = new Administration();
	$system_config->retrieveSettings('system');
	$authController = new AuthenticationController((!empty($sugar_config['authenticationClass'])? $sugar_config['authenticationClass'] : 'SugarAuthenticate'));
	// Check to see if the user name and password are consistent.
	if($user->authenticate_user($password)){
		// we also need to set the current_user.
		$user->retrieve($user->id);
		$current_user = $user;

		$GLOBALS['log']->info('End: SoapHelperWebServices->validate_user - validation passed');
		return true;
	}else if(function_exists('mcrypt_cbc')){
		$password = $this->decrypt_string($password);
		if($authController->login($user_name, $password) && isset($_SESSION['authenticated_user_id'])){
			$user->retrieve($_SESSION['authenticated_user_id']);
			$current_user = $user;
			$GLOBALS['log']->info('End: SoapHelperWebServices->validate_user - validation passed');
			return true;
		}
	}else{
		$GLOBALS['log']->fatal("SECURITY: failed attempted login for $user_name using SOAP api");
		$server->setError("Invalid username and/or password");
		return false;
	}

}

	/**
	 * Validate the provided session information is correct and current.  Load the session.
	 *
	 * @param String $session_id -- The session ID that was returned by a call to login.
	 * @return true -- If the session is valid and loaded.
	 * @return false -- if the session is not valid.
	 */
	function validate_authenticated($session_id){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->validate_authenticated');
		if(!empty($session_id)){
			session_id($session_id);
			session_start();
			if(!empty($_SESSION['is_valid_session']) && $this->is_valid_ip_address('ip_address') && $_SESSION['type'] == 'user'){

				global $current_user;
				require_once('modules/Users/User.php');
				$current_user = new User();
				$current_user->retrieve($_SESSION['user_id']);
				$this->login_success();
				$GLOBALS['log']->info('Begin: SoapHelperWebServices->validate_authenticated - passed');
				$GLOBALS['log']->info('End: SoapHelperWebServices->validate_authenticated');
				return true;
			}

			$GLOBALS['log']->debug("calling destroy");
			session_destroy();
		}
		LogicHook::initialize();
		$GLOBALS['logic_hook']->call_custom_logic('Users', 'login_failed');
		$GLOBALS['log']->info('End: SoapHelperWebServices->validate_authenticated - validation failed');
		return false;
	}

	/**
	 * Use the same logic as in SugarAuthenticate to validate the ip address
	 *
	 * @param string $session_var
	 * @return bool - true if the ip address is valid, false otherwise.
	 */
	function is_valid_ip_address($session_var){
		global $sugar_config;
		// grab client ip address
		$clientIP = query_client_ip();
		$classCheck = 0;
		// check to see if config entry is present, if not, verify client ip
		if (!isset ($sugar_config['verify_client_ip']) || $sugar_config['verify_client_ip'] == true) {
			// check to see if we've got a current ip address in $_SESSION
			// and check to see if the session has been hijacked by a foreign ip
			if (isset ($_SESSION[$session_var])) {
				$session_parts = explode(".", $_SESSION[$session_var]);
				$client_parts = explode(".", $clientIP);
	            if(count($session_parts) < 4) {
	             	$classCheck = 0;
	            }else {
	    			// match class C IP addresses
	    			for ($i = 0; $i < 3; $i ++) {
	    				if ($session_parts[$i] == $client_parts[$i]) {
	    					$classCheck = 1;
	    						continue;
	    				} else {
	    					$classCheck = 0;
	    					break;
	    					}
	    				}
	                }
					// we have a different IP address
					if ($_SESSION[$session_var] != $clientIP && empty ($classCheck)) {
						$GLOBALS['log']->fatal("IP Address mismatch: SESSION IP: {$_SESSION[$session_var]} CLIENT IP: {$clientIP}");
						return false;
					}
				} else {
					return false;
				}
		}
		return true;
	}

	function checkSessionAndModuleAccess($session, $login_error_key, $module_name, $access_level, $module_access_level_error_key, $errorObject) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->checkSessionAndModuleAccess');
		if(!$this->validate_authenticated($session)){
			$GLOBALS['log']->info('SoapHelperWebServices->checkSessionAndModuleAccess - validate_authenticated failed');
			$errorObject->set_error('invalid_session');
			$this->setFaultObject($errorObject);
			$GLOBALS['log']->info('End: SoapHelperWebServices->checkSessionAndModuleAccess');
			return false;
		} // if

		global  $beanList, $beanFiles;
		if (!empty($module_name)) {
			if(empty($beanList[$module_name])){
				$GLOBALS['log']->info('SoapHelperWebServices->checkSessionAndModuleAccess - module does not exists - ' . $module_name);
				$errorObject->set_error('no_module');
				$this->setFaultObject($errorObject);
				$GLOBALS['log']->info('End: SoapHelperWebServices->checkSessionAndModuleAccess');
				return false;
			} // if
			global $current_user;
			if(!$this->check_modules_access($current_user, $module_name, $access_level)){
				$GLOBALS['log']->info('SoapHelperWebServices->checkSessionAndModuleAccess - no module access - ' . $module_name);
				$errorObject->set_error('no_access');
				$this->setFaultObject($errorObject);
				$GLOBALS['log']->info('End: SoapHelperWebServices->checkSessionAndModuleAccess');
				return false;
			}
		} // if
		$GLOBALS['log']->info('End: SoapHelperWebServices->checkSessionAndModuleAccess');
		return true;
	} // fn

	function checkACLAccess($bean, $viewType, $errorObject, $error_key) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->checkACLAccess');
		if(!$bean->ACLAccess($viewType)) {
			$GLOBALS['log']->info('SoapHelperWebServices->checkACLAccess - no ACLAccess');
			$errorObject->set_error($error_key);
			$this->setFaultObject($errorObject);
			$GLOBALS['log']->info('End: SoapHelperWebServices->checkACLAccess');
			return false;
		} // if
		$GLOBALS['log']->info('End: SoapHelperWebServices->checkACLAccess');
		return true;
	} // fn

	function get_name_value($field,$value){
		return array('name'=>$field, 'value'=>$value);
	}

	function get_user_module_list($user){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->get_user_module_list');
		global $app_list_strings, $current_language;
		$app_list_strings = return_app_list_strings_language($current_language);
		$modules = query_module_access_list($user);
		ACLController :: filterModuleList($modules, false);
		global $modInvisList, $modInvisListActivities;

		foreach($modInvisList as $invis){
			$modules[$invis] = 'read_only';
		}

		if(isset($modules['Calendar']) || $modules['Activities']){
			foreach($modInvisListActivities as $invis){
					$modules[$invis] = $invis;
			}
		}
		$actions = ACLAction::getUserActions($user->id,true);
		foreach($actions as $key=>$value){
			if(isset($value['module']) && $value['module']['access']['aclaccess'] < ACL_ALLOW_ENABLED){
				if ($value['module']['access']['aclaccess'] == ACL_ALLOW_DISABLED) {
					unset($modules[$key]);
				} else {
					$modules[$key] = 'read_only';
				} // else
			} else {
				$modules[$key] = '';
			} // else
		} // foreach
		$GLOBALS['log']->info('End: SoapHelperWebServices->get_user_module_list');
		return $modules;

	}

	function check_modules_access($user, $module_name, $action='write'){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->check_modules_access');
		if(!isset($_SESSION['avail_modules'])){
			$_SESSION['avail_modules'] = $this->get_user_module_list($user);
		}
		if(isset($_SESSION['avail_modules'][$module_name])){
			if($action == 'write' && $_SESSION['avail_modules'][$module_name] == 'read_only'){
				if(is_admin($user)) {
					$GLOBALS['log']->info('End: SoapHelperWebServices->check_modules_access');
					return true;
				} // if
				$GLOBALS['log']->info('End: SoapHelperWebServices->check_modules_access');
				return false;
			}
			$GLOBALS['log']->info('End: SoapHelperWebServices->check_modules_access');
			return true;
		}
		$GLOBALS['log']->info('End: SoapHelperWebServices->check_modules_access');
		return false;

	}

	function get_name_value_list(&$value){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->get_name_value_list');
		global $app_list_strings;
		$list = array();
		if(!empty($value->field_defs)){
			if(isset($value->assigned_user_name)) {
				$list['assigned_user_name'] = $this->get_name_value('assigned_user_name', $value->assigned_user_name);
			}
			if(isset($value->modified_by_name)) {
				$list['modified_by_name'] = $this->get_name_value('modified_by_name', $value->modified_by_name);
			}
			if(isset($value->created_by_name)) {
				$list['created_by_name'] = $this->get_name_value('created_by_name', $value->created_by_name);
			}
			foreach($value->field_defs as $var){
				if(isset($var['source']) && ($var['source'] != 'db' && $var['source'] != 'custom_fields') && $var['name'] != 'email1' && $var['name'] != 'email2' && (!isset($var['type'])|| $var['type'] != 'relate'))continue;

				if(isset($value->$var['name'])){
					$val = $value->$var['name'];
					$type = $var['type'];

					if(strcmp($type, 'date') == 0){
						$val = substr($val, 0, 10);
					}elseif(strcmp($type, 'enum') == 0 && !empty($var['options'])){
						//$val = $app_list_strings[$var['options']][$val];
					}

					$list[$var['name']] = $this->get_name_value($var['name'], $val);
				}
			}
		}
		$GLOBALS['log']->info('End: SoapHelperWebServices->get_name_value_list');
		return $list;

	}

	function filter_fields($value, $fields) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->filter_fields');
		global $invalid_contact_fields;
		$filterFields = array();
		foreach($fields as $field){
			if (is_array($invalid_contact_fields)) {
				if (in_array($field, $invalid_contact_fields)) {
					continue;
				} // if
			} // if
			if (isset($value->field_defs[$field])) {
				$var = $value->field_defs[$field];
				if(isset($var['source']) && ($var['source'] != 'db' && $var['source'] != 'custom_fields') && $var['name'] != 'email1' && $var['name'] != 'email2' && (!isset($var['type'])|| $var['type'] != 'relate')) {

					if($value->module_dir == 'Emails' && (($var['name'] == 'description') || ($var['name'] == 'description_html') || ($var['name'] == 'from_addr_name') || ($var['name'] == 'reply_to_addr') || ($var['name'] == 'to_addrs_names') || ($var['name'] == 'cc_addrs_names') || ($var['name'] == 'bcc_addrs_names') || ($var['name'] == 'raw_source'))) {

					} else {
						continue;
					}
				}
			} // if
			$filterFields[] = $field;
		} // foreach
		$GLOBALS['log']->info('End: SoapHelperWebServices->filter_fields');
		return $filterFields;
	} // fn

	function get_name_value_list_for_fields($value, $fields) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->get_name_value_list_for_fields');
		global $app_list_strings;
		global $invalid_contact_fields;

		$list = array();
		if(!empty($value->field_defs)){
			if(empty($fields))$fields = array_keys($value->field_defs);
			if(isset($value->assigned_user_name) && in_array('assigned_user_name', $fields)) {
				$list['assigned_user_name'] = $this->get_name_value('assigned_user_name', $value->assigned_user_name);
			}
			if(isset($value->modified_by_name) && in_array('modified_by_name', $fields)) {
				$list['modified_by_name'] = $this->get_name_value('modified_by_name', $value->modified_by_name);
			}
			if(isset($value->created_by_name) && in_array('created_by_name', $fields)) {
				$list['created_by_name'] = $this->get_name_value('created_by_name', $value->created_by_name);
			}

			$filterFields = $this->filter_fields($value, $fields);
			foreach($filterFields as $field){
				$var = $value->field_defs[$field];
				if(isset($value->$var['name'])){
					$val = $value->$var['name'];
					$type = $var['type'];

					if(strcmp($type, 'date') == 0){
						$val = substr($val, 0, 10);
					}elseif(strcmp($type, 'enum') == 0 && !empty($var['options'])){
						//$val = $app_list_strings[$var['options']][$val];
					}

					$list[$var['name']] = $this->get_name_value($var['name'], $val);
				} // if
			} // foreach
		} // if
		$GLOBALS['log']->info('End: SoapHelperWebServices->get_name_value_list_for_fields');
		if ($this->isLogLevelDebug()) {
			$GLOBALS['log']->debug('SoapHelperWebServices->get_name_value_list_for_fields - return data = ' . var_export($list, true));
		} // if
		return $list;

	} // fn
	
	function array_get_name_value_list($array){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->array_get_name_value_list');
		$list = array();
		foreach($array as $name=>$value){
			$list[$name] = $this->get_name_value($name, $value);
		}
		$GLOBALS['log']->info('End: SoapHelperWebServices->array_get_name_value_list');
		return $list;

	}

	function array_get_name_value_lists($array){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->array_get_name_value_lists');
	    $list = array();
	    foreach($array as $name=>$value){
	        $tmp_value=$value;
	        if(is_array($value)){
	            $tmp_value = array();
	            foreach($value as $k=>$v){
	                $tmp_value[$k] = $this->get_name_value($k, $v);
	            }
	        }
	        $list[$name] = $this->get_name_value($name, $tmp_value);
	    }
		$GLOBALS['log']->info('End: SoapHelperWebServices->array_get_name_value_lists');
	    return $list;
	}

	function name_value_lists_get_array($list){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->name_value_lists_get_array');
	    $array = array();
	    foreach($list as $key=>$value){
	        if(isset($value['value']) && isset($value['name'])){
	            if(is_array($value['value'])){
	                $array[$value['name']]=array();
	                foreach($value['value'] as $v){
	                    $array[$value['name']][$v['name']]=$v['value'];
	                }
	            }else{
	                $array[$value['name']]=$value['value'];
	            }
	        }
	    }
		$GLOBALS['log']->info('End: SoapHelperWebServices->name_value_lists_get_array');
	    return $array;
	}

	function array_get_return_value($array, $module){

		$GLOBALS['log']->info('Begin/End: SoapHelperWebServices->array_get_return_value');
		return Array('id'=>$array['id'],
					'module_name'=> $module,
					'name_value_list'=>$this->array_get_name_value_list($array)
					);
	}

	function get_return_value_for_fields($value, $module, $fields) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->get_return_value_for_fields');
		global $module_name, $current_user;
		$module_name = $module;
		if($module == 'Users' && $value->id != $current_user->id){
			$value->user_hash = '';
		}
		$GLOBALS['log']->info('End: SoapHelperWebServices->get_return_value_for_fields');
		return Array('id'=>$value->id,
					'module_name'=> $module,
					'name_value_list'=>$this->get_name_value_list_for_fields($value, $fields)
					);
	}

	function getRelationshipResults($bean, $link_field_name, $link_module_fields, $optional_where = '') {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->getRelationshipResults');
		require_once('include/TimeDate.php');
		global  $beanList, $beanFiles, $current_user;
		global $disable_date_format;

		$bean->load_relationship($link_field_name);
		if (isset($bean->$link_field_name)) {
			// get the query object for this link field
			$query_array = $bean->$link_field_name->getQuery(true,array(),0,'',true);
			if (isset($query_array['where'])) {
				$query_array['where'] = str_ireplace("where", "", $query_array['where']);
				if (!empty($optional_where)) {
					$optional_where = $query_array['where'] . " and " . $optional_where;
				} else {
					$optional_where = $query_array['where'];
				} // else
			} // if

			$params = array();
			$params['joined_tables'] = $query_array['join_tables'];

			// get the related module name and instantiate a bean for that.
			$submodulename = $bean->$link_field_name->getRelatedModuleName();
			$submoduleclass = $beanList[$submodulename];
			require_once($beanFiles[$submoduleclass]);
			$submodule = new $submoduleclass();
			$filterFields = $this->filter_fields($submodule, $link_module_fields);
			$relFields = $bean->$link_field_name->getRelatedFields();
			$roleSelect = '';

			$idSetInSubModule = false;
			if($submodulename == 'Users' && !in_array('id', $link_module_fields)){
				$link_module_fields[] = 'id';
				$idSetInSubModule = true;
			}

			if(!empty($relFields)){
				foreach($link_module_fields as $field){
					if(!empty($relFields[$field])){
						$roleSelect .= ', ' . $query_array['join_tables'][0] . '.'. $field;
					}
				}
			}
			// create a query
			$subquery = $submodule->create_new_list_query('',$optional_where ,$filterFields,$params, 0,'', true,$bean);
			$query =  $subquery['select'].$roleSelect .   $subquery['from'].$query_array['join']. $subquery['where'];
			$GLOBALS['log']->info('SoapHelperWebServices->getRelationshipResults query = ' . $query);

			$result = $submodule->db->query($query, true);
			$list = array();
			while($row = $submodule->db->fetchByAssoc($result)) {
				if (!$disable_date_format) {
					foreach ($filterFields as $field) {
						if (isset($submodule->field_defs[$field]) &&
							isset($submodule->field_defs[$field]['type']) &&
							isset($row[$field])) {

								if ($submodule->field_defs[$field]['type'] == 'date') {
									global $timedate;
									$row[$field] = $timedate->to_display_date_time($row[$field]);
								}
								if ($submodule->field_defs[$field]['type'] == 'currency') {
									// TODO: convert data from db to user preferred format absed on the community input
								} // if
						} // if

					} // foreach
				}
				if($submodulename == 'Users' && $current_user->id != $row['id']) {
					$row['user_hash'] = "";
				} // if
				if ($idSetInSubModule) {
					unset($row['id']);
				} // if
				$list[] = $row;
			}
			$GLOBALS['log']->info('End: SoapHelperWebServices->getRelationshipResults');
			return array('rows' => $list, 'fields_set_on_rows' => $filterFields);
		} else {
			$GLOBALS['log']->info('End: SoapHelperWebServices->getRelationshipResults - ' . $link_field_name . ' relationship does not exists');
			return false;
		} // else

	} // fn

	function get_return_value_for_link_fields($bean, $module, $link_name_to_value_fields_array) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->get_return_value_for_link_fields');
		global $module_name, $current_user;
		$module_name = $module;
		if($module == 'Users' && $bean->id != $current_user->id){
			$bean->user_hash = '';
		}

		if (empty($link_name_to_value_fields_array) || !is_array($link_name_to_value_fields_array)) {
			$GLOBALS['log']->debug('End: SoapHelperWebServices->get_return_value_for_link_fields - Invalid link information passed ');
			return array();
		}

		if ($this->isLogLevelDebug()) {
			$GLOBALS['log']->debug('SoapHelperWebServices->get_return_value_for_link_fields - link info = ' . var_export($link_name_to_value_fields_array, true));
		} // if
		$link_output = array();
		foreach($link_name_to_value_fields_array as $link_name_value_fields) {
			if (!is_array($link_name_value_fields) || !isset($link_name_value_fields['name']) || !isset($link_name_value_fields['value'])) {
				continue;
			}
			$link_field_name = $link_name_value_fields['name'];
			$link_module_fields = $link_name_value_fields['value'];
			if (is_array($link_module_fields) && !empty($link_module_fields)) {
				$result = $this->getRelationshipResults($bean, $link_field_name, $link_module_fields);
				if (!$result) {
					$link_output[] = array('name' => $link_field_name, 'records' => array());
					continue;
				}
				$list = $result['rows'];
				$filterFields = $result['fields_set_on_rows'];
				if ($list) {
					$rowArray = array();
					foreach($list as $row) {
						$nameValueArray = array();
						foreach ($filterFields as $field) {
							$nameValue = array();
							if (isset($row[$field])) {
								$nameValueArray[$field] = $this->get_name_value($field, $row[$field]);
							} // if
						} // foreach
						$rowArray[] = $nameValueArray;
					} // foreach
					$link_output[] = array('name' => $link_field_name, 'records' => $rowArray);
				} // if
			} // if
		} // foreach
		$GLOBALS['log']->debug('End: SoapHelperWebServices->get_return_value_for_link_fields');
		if ($this->isLogLevelDebug()) {
			$GLOBALS['log']->debug('SoapHelperWebServices->get_return_value_for_link_fields - output = ' . var_export($link_output, true));
		} // if
		return $link_output;
	} // fn

	/**
	 *
	 * @param String $module_name -- The name of the module that the primary record is from.  This name should be the name the module was developed under (changing a tab name is studio does not affect the name that should be passed into this method).
	 * @param String $module_id -- The ID of the bean in the specified module
	 * @param String $link_field_name - The relationship name for which to create realtionships.
	 * @param Array $related_ids -- The array of ids for which we want to create relationships
	 * @param Array $name_value_list -- The array of name value pair of additional attributes to be set when adding this relationship
	 * @param int delete -- If 0 then add relationship else delete this relationship data
	 * @return true on success, false on failure
	 */
	function new_handle_set_relationship($module_name, $module_id, $link_field_name, $related_ids, $name_value_list, $delete) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->new_handle_set_relationship');
	    global  $beanList, $beanFiles;

	    if(empty($beanList[$module_name])) {
			$GLOBALS['log']->debug('SoapHelperWebServices->new_handle_set_relationship - module ' . $module_name . ' does not exists' );
			$GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_relationship');
	        return false;
	    } // if
	    $class_name = $beanList[$module_name];
	    require_once($beanFiles[$class_name]);
	    $mod = new $class_name();
	    $mod->retrieve($module_id);
		if(!$mod->ACLAccess('DetailView')){
			$GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_relationship');
			return false;
		}

		if ($mod->load_relationship($link_field_name)) {
			if (!$delete) {
				$name_value_pair = array();
				if (!empty($name_value_list)) {
					$relFields = $mod->$link_field_name->getRelatedFields();
					if(!empty($relFields)){
						$relFieldsKeys = array_keys($relFields);
						foreach($name_value_list as $key => $value) {
							if (in_array($value['name'], $relFieldsKeys)) {
								$name_value_pair[$value['name']] = $value['value'];
							} // if
						} // foreach
					} // if
				}
				$mod->$link_field_name->add($related_ids, $name_value_pair);
			} else {
				foreach($related_ids as $id) {
					$mod->$link_field_name->delete($module_id, $id);
				} // foreach
			} // else
			$GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_relationship');
			return true;
		} else {
			$GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_relationship');
			return false;
		}
	}

	function new_handle_set_entries($module_name, $name_value_lists, $select_fields = FALSE) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->new_handle_set_entries');
		global $beanList, $beanFiles, $current_user;

		$ret_values = array();

		global $current_user;
		$class_name = $beanList[$module_name];
		require_once($beanFiles[$class_name]);
		$ids = array();
		$count = 1;
		$total = sizeof($name_value_lists);
		foreach($name_value_lists as $name_value_list){
			$seed = new $class_name();

			$seed->update_vcal = false;
			foreach($name_value_list as $value){
				if($value['name'] == 'id'){
					$seed->retrieve($value['value']);
					break;
				}
			}

			foreach($name_value_list as $value) {
				$val = $value['value'];
				if($seed->field_name_map[$value['name']]['type'] == 'enum'){
					$vardef = $seed->field_name_map[$value['name']];
					if(isset($app_list_strings[$vardef['options']]) && !isset($app_list_strings[$vardef['options']][$value]) ) {
						if ( in_array($val,$app_list_strings[$vardef['options']]) ){
							$val = array_search($val,$app_list_strings[$vardef['options']]);
						}
					}
				}
				if($module_name == 'Users' && !empty($seed->id) && ($seed->id != $current_user->id) && $value['name'] == 'user_hash'){
					continue;
				}

				$seed->$value['name'] = $val;
			}

			if($count == $total){
				$seed->update_vcal = false;
			}
			$count++;

			//Add the account to a contact
			if($module_name == 'Contacts'){
				$GLOBALS['log']->debug('Creating Contact Account');
				$this->add_create_account($seed);
				$duplicate_id = $this->check_for_duplicate_contacts($seed);
				if($duplicate_id == null){
					if($seed->ACLAccess('Save') && ($seed->deleted != 1 || $seed->ACLAccess('Delete'))){
						$seed->save();
						if($seed->deleted == 1){
							$seed->mark_deleted($seed->id);
						}
						$ids[] = $seed->id;
					}
				}
				else{
					//since we found a duplicate we should set the sync flag
					if( $seed->ACLAccess('Save')){
						$seed = new $class_name();
						$seed->id = $duplicate_id;
						$seed->contacts_users_id = $current_user->id;
						$seed->save();
						$ids[] = $duplicate_id;//we have a conflict
					}
				}
			}
			else if($module_name == 'Meetings' || $module_name == 'Calls'){
				//we are going to check if we have a meeting in the system
				//with the same outlook_id. If we do find one then we will grab that
				//id and save it
				if( $seed->ACLAccess('Save') && ($seed->deleted != 1 || $seed->ACLAccess('Delete'))){
					if(empty($seed->id) && !isset($seed->id)){
						if(!empty($seed->outlook_id) && isset($seed->outlook_id)){
							//at this point we have an object that does not have
							//the id set, but does have the outlook_id set
							//so we need to query the db to find if we already
							//have an object with this outlook_id, if we do
							//then we can set the id, otherwise this is a new object
							$order_by = "";
							$query = $seed->table_name.".outlook_id = '".$seed->outlook_id."'";
							$response = $seed->get_list($order_by, $query, 0,-1,-1,0);
							$list = $response['list'];
							if(count($list) > 0){
								foreach($list as $value)
								{
									$seed->id = $value->id;
									break;
								}
							}//fi
						}//fi
					}//fi
				    if (empty($seed->reminder_time)) {
                        $seed->reminder_time = -1;
                    }
                    if($seed->reminder_time == -1){
                        $defaultRemindrTime = $current_user->getPreference('reminder_time');
                        if ($defaultRemindrTime != -1){
                            $seed->reminder_checked = '1';
                            $seed->reminder_time = $defaultRemindrTime;
                        }
                    }
					$seed->save();
					$ids[] = $seed->id;
				}//fi
			}
			else
			{
				if( $seed->ACLAccess('Save') && ($seed->deleted != 1 || $seed->ACLAccess('Delete'))){
					$seed->save();
					$ids[] = $seed->id;
				}
			}

			// if somebody is calling set_entries_detail() and wants fields returned...
			if ($select_fields !== FALSE) {
				$ret_values[$count] = array();

				foreach ($select_fields as $select_field) {
					if (isset($seed->$select_field)) {
						$ret_values[$count][$select_field] = $this->get_name_value($select_field, $seed->$select_field);
					}
				}
			}
		}

		// handle returns for set_entries_detail() and set_entries()
		if ($select_fields !== FALSE) {
			$GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_entries');
			return array(
				'name_value_lists' => $ret_values,
			);
		}
		else {
			$GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_entries');
			return array(
				'ids' => $ids,
			);
		}
	}

	function get_return_value(&$value, $module){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->get_return_value');
		global $module_name, $current_user;
		$module_name = $module;
		if($module == 'Users' && $value->id != $current_user->id){
			$value->user_hash = '';
		}
		$GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_entries');
		return Array('id'=>$value->id,
					'module_name'=> $module,
					'name_value_list'=>$this->get_name_value_list($value)
					);
	}


	function get_return_module_fields($value, $module,$fields, $translate=true){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->get_return_module_fields');
		global $module_name;
		$module_name = $module;
		$result = $this->get_field_list($value,$fields,  $translate);
		$GLOBALS['log']->info('End: SoapHelperWebServices->get_return_module_fields');
		return Array('module_name'=>$module,
					'module_fields'=> $result['module_fields'],
					'link_fields'=> $result['link_fields'],
					);
	} // fn

	function login_success($name_value_list = array()){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->login_success');
		global $current_language, $sugar_config, $app_strings, $app_list_strings;
		$current_language = $sugar_config['default_language'];
		if (is_array($name_value_list) && !empty($name_value_list)) {
			foreach($name_value_list as $key => $value) {
				if (isset($value['name']) && ($value['name'] == 'language')) {
					$language = $value['value'];
					$supportedLanguages = $sugar_config['languages'];
					if (array_key_exists($language, $supportedLanguages)) {
						$current_language = $language;
					} // if
				} // if
				if (isset($value['name']) && ($value['name'] == 'notifyonsave')) {
					if ($value['value']) {
						$_SESSION['notifyonsave'] = true;
					}
				} // if
			} // foreach
		} else {
			if (isset($_SESSION['user_language'])) {
				$current_language = $_SESSION['user_language'];
			} // if
		}
		$GLOBALS['log']->info("Users language is = " . $current_language);
		$app_strings = return_application_language($current_language);
		$app_list_strings = return_app_list_strings_language($current_language);
		$GLOBALS['log']->info('End: SoapHelperWebServices->login_success');
	} // fn


	function checkSaveOnNotify() {
	    $notifyonsave = false;
	    if (isset($_SESSION['notifyonsave']) && $_SESSION['notifyonsave'] == true) {
	    	$notifyonsave = true;
	    } // if
		return $notifyonsave;
	}
	/*
	 *	Given an account_name, either create the account or assign to a contact.
	 */
	function add_create_account($seed) {
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->add_create_account');
		global $current_user;
		$account_name = $seed->account_name;
		$account_id = $seed->account_id;
		$assigned_user_id = $current_user->id;

		// check if it already exists
	    $focus = new Account();
	    if($focus->ACLAccess('Save')) {
			$class = get_class($seed);
			$temp = new $class();
			$temp->retrieve($seed->id);
			if ((!isset($account_name) || $account_name == '')) {
				return;
			} // if
			if (!isset($seed->accounts)){
			    $seed->load_relationship('accounts');
			} // if

			if($seed->account_name = '' && isset($temp->account_id)){
				$seed->accounts->delete($seed->id, $temp->account_id);
				$GLOBALS['log']->info('End: SoapHelperWebServices->add_create_account');
				return;
			}
		    $arr = array();

		    $query = "select id, deleted from {$focus->table_name} WHERE name='".$seed->db->quote($account_name)."'";
		    $result = $seed->db->query($query) or sugar_die("Error selecting sugarbean: ".mysql_error());

		    $row = $seed->db->fetchByAssoc($result, -1, false);

			// we found a row with that id
		    if (isset($row['id']) && $row['id'] != -1)
		    {
		    	// if it exists but was deleted, just remove it entirely
		        if ( isset($row['deleted']) && $row['deleted'] == 1)
		        {
		            $query2 = "delete from {$focus->table_name} WHERE id='". $seed->db->quote($row['id'])."'";
		            $result2 = $seed->db->query($query2) or sugar_die("Error deleting existing sugarbean: ".mysql_error());
				}
				// else just use this id to link the contact to the account
		        else
		        {
		        	$focus->id = $row['id'];
		        }
		    }

			// if we didnt find the account, so create it
		    if (! isset($focus->id) || $focus->id == '')
		    {
		    	$focus->name = $account_name;

				if ( isset($assigned_user_id))
				{
		           $focus->assigned_user_id = $assigned_user_id;
		           $focus->modified_user_id = $assigned_user_id;
				}
		        $focus->save();
		    }

		    if($seed->accounts != null && $temp->account_id != null && $temp->account_id != $focus->id){
		    	$seed->accounts->delete($seed->id, $temp->account_id);
		    }

		    if(isset($focus->id) && $focus->id != ''){
				$seed->account_id = $focus->id;
			} // if
			$GLOBALS['log']->info('End: SoapHelperWebServices->add_create_account');

	    } else {
			$GLOBALS['log']->info('End: SoapHelperWebServices->add_create_account - Insufficient ACLAccess');
	    } // else
	} // fn

	function check_for_duplicate_contacts(&$seed){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->check_for_duplicate_contacts');
		require_once('modules/Contacts/Contact.php');

		if(isset($seed->id)){
			$GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - no duplicte found');
			return null;
		}

		$query = '';

		$trimmed_email = trim($seed->email1);
		$trimmed_last = trim($seed->last_name);
		$trimmed_first = trim($seed->first_name);
		if(!empty($trimmed_email)){

			//obtain a list of contacts which contain the same email address
			$contacts = $seed->emailAddress->getBeansByEmailAddress($trimmed_email);
			if(count($contacts) == 0){
				$GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - no duplicte found');
				return null;
			}else{
				foreach($contacts as $contact){
					if(!empty($trimmed_last) && strcmp($trimmed_last, $contact->last_name) == 0){
						if(!empty($trimmed_email) && strcmp($trimmed_email, $contact->email1) == 0){
							if(!empty($trimmed_email)){
								if(strcmp($trimmed_email, $contact->email1) == 0){
								 	//bug: 39234 - check if the account names are the same
								 	//if the incoming contact's account_name is empty OR it is not empty and is the same
								 	//as an existing contact's account name, then find the match.
									$contact->load_relationship('accounts');
									if(empty($seed->account_name) || strcmp($seed->account_name, $contact->account_name) == 0){
										$GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - duplicte found ' . $contact->id);
										return $contact->id;
									}
								}
							}else{
								$GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - duplicte found' . $contact->id);
								return $contact->id;
							}
						}
					}
				}
				$GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - no duplicte found');
				return null;
			}
		}else
			$GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - no duplicte found');
			return null;
	}


	/**
	 * decrypt a string use the TripleDES algorithm. This meant to be
	 * modified if the end user chooses a different algorithm
	 *
	 * @param $string - the string to decrypt
	 *
	 * @return a decrypted string if we can decrypt, the original string otherwise
	 */
	function decrypt_string($string){
		$GLOBALS['log']->info('Begin: SoapHelperWebServices->decrypt_string');
		if(function_exists('mcrypt_cbc')){
			require_once('modules/Administration/Administration.php');
			$focus = new Administration();
			$focus->retrieveSettings();
			$key = '';
			if(!empty($focus->settings['ldap_enc_key'])){
				$key = $focus->settings['ldap_enc_key'];
			}
			if(empty($key)) {
				$GLOBALS['log']->info('End: SoapHelperWebServices->decrypt_string - empty key');
				return $string;
			} // if
			$buffer = $string;
			$key = substr(md5($key),0,24);
		    $iv = "password";
			$GLOBALS['log']->info('End: SoapHelperWebServices->decrypt_string');
		    return mcrypt_cbc(MCRYPT_3DES, $key, pack("H*", $buffer), MCRYPT_DECRYPT, $iv);
		}else{
			$GLOBALS['log']->info('End: SoapHelperWebServices->decrypt_string');
			return $string;
		}
	} // fn

	function isLogLevelDebug() {
		if (isset($GLOBALS['sugar_config']['logger'])) {
			if (isset($GLOBALS['sugar_config']['logger']['level'])) {
				return ($GLOBALS['sugar_config']['logger']['level'] == 'debug');
			} // if
		}
		return false;
	} // fn
} // clazz

?>
